home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_387 / megafish / tools / mf-rexxscripts / mfsuche.mfish < prev    next >
Text File  |  1995-07-15  |  2KB  |  74 lines
  1. /*
  2. $VER: MFSuche.Mfish v0.2 (W) Stephan Bülling
  3.  
  4. (W)1993-1994 Stephan Bülling
  5. (C)1993-1995 Mega/Soft Ltd.
  6.  
  7. */
  8.  
  9.  
  10. /*                    MFSuche.prefs                           */
  11.  
  12. logbuch = "RAM:Suchliste.MFISH"  /* Logbuch sichern als       */
  13. kill    = "ja"                   /* logbuch löschen ja/nein ? */
  14. zeiger  = "more"                /* Logbuch anzeiger          */
  15.  
  16. /*------------------------------------------------------------*/
  17.  
  18. ver="MFSuche v.0.2";
  19. options results;SIGNAL ON Break_C;'WaitForPort MFISH';ADDRESS 'MFISH';NL = '0a'x;
  20. /*|||*//* checken*/
  21. if show('library','rexxreqtools.library') = 0 then do
  22.   call addlib("rexxreqtools.library", 0, -30, 0);end
  23. if ~Show(P,'MFISH') then do
  24.     Say " "
  25.     Say "MFSuche.mfish (w) 1994 Stephan Bülling"
  26.     Say "MegaFish muß zuerst gestartet werden!"
  27.     options PROMPT "Ende mit <RETURN>";pull it;exit;end
  28. /*|||*/
  29. /*|||*/Anfang:
  30. ans1=rtezrequest(center(""ver"",50)||NL||,
  31.                  center("(W) Stephan Bülling '94",40),"_Start|_About",""ver"");
  32. IF Ans1= 1 then call start;IF Ans2= 2 then call Werbung;Werbung:
  33. Ans=DUMMMY=rtezrequest(center(""VER"",70)||NL||,
  34.            center(" (W)1993-1994 Stephan Bülling ",50)||NL||,
  35.            center(" (C)1993-1995 Mega/Soft Ltd.",50)||NL||,
  36.            center("",50)||NL||,
  37.            center(" EMail: rubberduck@blanker.ruhr.de",50)||NL||,
  38.            center(" Dieses Programm ist PMWare (Brief-Ware)",50)||NL||,
  39.            CENTER(" ",70),"_Weiter",""VER"");call anfang
  40. /*|||*/
  41. /*|||*/Start:
  42.  
  43. STATUS ALLDIRS;aserien=Result
  44. QUERY NAME;suchname=RESULT;
  45. suchmuster = rtgetstring(""suchname"", , "Gebe Suchstring ein:", ,)
  46. if suchmuster == ""  then;CALL BREAK_C;else
  47. snum=1;"FIND NAME "suchmuster"";
  48. DO i=1 TO aserien
  49. PROJECTNAME i;dataname=RESULT;
  50. dataname=laden
  51. OPENDIR RESULT;
  52. laden=RESULT;
  53. STATUS PROJECTNAME;laden=RESULT
  54. open(bs,""logbuch"",W);Writeln(bs," ")
  55. Writeln(bs,"Serie: "laden"");Writeln(bs," ")
  56. FIND RESULT;zahl=RESULT;DO FOR zahl;
  57. QUERY DISK;disk=RESULT;QUERY NAME;nm=RESULT;
  58. Writeln(bs," Diskette :  "disk"  Programm : "nm" ");NEXT;DROP disk;END;
  59. Writeln(bs," ");Writeln(bs," "zahl" Programme gefunden.... ");
  60. Writeln(bs," ");snum=snum+1;END;
  61. Writeln(bs," "ver" (W) Stephan Bülling alias RUBBERDUCK  ");Close(bs);
  62. ADDRESS COMMAND ""zeiger" "logbuch""
  63. /*|||*/
  64. /*|||*/Break_C:
  65. IF kill ="ja" then
  66. ADDRESS COMMAND "RUN >NIL: c:Delete "logbuch" QUIET"
  67. ELSE
  68. ADDRESS 'MFISH'
  69. FIND ALL
  70. EXIT
  71. END
  72. /*|||*/
  73.  
  74.